Reduce to a minor-mode macro call.

(t-mouse-mode) Remove the lighter.

diff --git a/lisp/t-mouse.el b/lisp/t-mouse.el
index 42db325176b44746a5d1de62ee0464585beb9fb2..a780a9932c90603d47f7b7cffdabff44c2048bcd 100644 (file)
--- a/lisp/t-mouse.el
+++ b/lisp/t-mouse.el
@@ -47,8 +47,9 @@ With prefix arg, turn t-mouse mode on iff arg is positive.
 This allows the use of the mouse when operating on a Linux console, in the
 same way as you can use the mouse under X11.
 It requires the `mev' program, part of the `gpm' utilities."
-  nil " Mouse" nil :global t
-  (unless window-system
+  :global t :group 'mouse
+  (if window-system
+      (error "t-mouse only works in the console on GNU/Linux")
     (if t-mouse-mode
        (progn
          (unless (fboundp 'term-open-connection)